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} 1 
1 

1 MODULE SMGSSPUT_TEXT TO_pyFrES ( ZTITLE ‘Put text to display buffer’ 
{DENT = '1-012' ! File: SMGPUTTEX.B32 Edit: PLL1012 


BEGIN 


lenaneucenaeeeneeerennenteneneetectteeterteetertrettennentnenenernenentnettns 
‘® 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE 

i ONLY IN ACCORDANCE WITH THE TERMS OF 

ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. T 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHER 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF 


ac 
® 
® 
® 
w 
t 
® 
+ 
® 
ie TRANSFERRED. * 
® 
® 
® 
® 
wy 
* 
© 
® 
® 
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oooo 
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NOUS WR 9 OONOAU EWN (OOO NOAU EWN $0 OONOU SUN) SO OONOUE UT 


MAY BE USED AND COP 


IED 
LICENSE AND WITH THE 
FTWARE 0 R 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eeeokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 


BILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS 


I 
H NOT SUPPLIED BY DIGITAL. 
is 
Lee R RRA AA REAR EAA E CAAA AEA EREEE 


' 

'e¢ 

! FACILITY: Screen Management 
i ABSTRACT: 


VISUIN “OO DNAOWVE UN HOODOO FUN SOOO YOUN EWwN— 


This is an internal routine used by screen management procedures to 
place user's text into a display buffer. The text is spanned for 
special characters. 

ENVIRONMENT: User mode - AST reentrant 

AUTHOR: P. Levesque, CREATION DATE: 14-Apr-1983 


MODIFIED BY: 


CSOOCOCoCoCoooSO 


OOoooo 


333333333 


Original. PLL 14-Apr-1983 


PINAR IRE Be FB FB BB Bo LEI NITN IIT ININI 
ee ee et ee ee ee ee ee ee ee a ee a a el a a a a a a a 


NOMS UN OOODNOUE WN" OOas 


1 @ 
1- os - Finish coding. PLL 20-Apr-1983 
1- - Add error message, character set buffer allocation. PLL 4-May-1983 
8 1- - Fix second half of the ogen tabis to agree with actions for 
9 DEC Multinational. PLL 5-May-1983 
50 1-003 - If on the last Line and we have found 2 Line feed, scroll. PLL 11-May-1983 
051 1-006 - If a bell character is fo ng. call SMGSRING_BELL instead of setting 
26 a bell bit. PLL Daher 
5 1-007 - If a LF is found. scro l accor ing to obs new dcb top & bottom of 
bee scrolling region fields. PLL 26-May-1198 
055 1-008 - if an ESC is detected, call the terminal simulator routine to 
B28 nterpret rhe sequence and perform the correct SMG$ function. 
5 PLL 7-Jul-1983 
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—in 


! 1-009 - ee 2 ‘reserved' gorretens in n upper pb if of table to pass thru 

er intebie characters. 

1-010 - SRG SSIM_TERM may per . graphics it’ in the DCB's default 
attributes byte. ote te into gecouns rts copying the attribute 
bytes for characters into the vd fer. 9-Aug-1 

j= 11 = Call SMGSSSIM_ TERM whee ocB. VLA BLL -Sept-1983 

-012 - In order to print carri ope f ohtrol thara cers “Sastead of execute 
them, check the DCB_V_DI PLAY CONTROLS bit and ee the geet rep 
into tne text buffer in a different way. PLL 23-Sep-198 
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emgt3 Declarations 3 12-808- 1382 94:18:86 SMGRTL’ SRETSHEPUTTCX. 68251 ° (2) 
: £0 } XSBTTL ‘Declarations’ 
; F 1 § SWITCHES: 
ff |! 
: t ! SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; i i LINKAGES 
: 79 1 i : 
3 Bo : NONE 
; & 1 | TABLE OF CONTENTS: 
3; §& 1! 
: 84 1 
; 85 1 FORWARD ROUTINE 
3 6 : SMGSSPUT_TEXT_TO_BUFFER; 
: 88 1! 
3 9 1 ! INCLUDE FILES: 
a: ; 
; 3 : REQUIRE ‘RTLIN:SMGPROLOG'; ! defines Psects, macros, data base 
> 94 1! 
3 SS 1 ! MACROS: 
; 8496 1! 
3 97 . F NONE 
; | «698 1! 
: 99 1 ! EQUATED SYMBOLS: 
3 100 1! 
: 101 1! NONE 
3 18 1! 
: 10 1 ! FIELDS: 
; 104 1! 
; 105 1! NONE ( 
3; 106 1! 
: 107 1 ! PSECTS: ( 
; 108 1! ( 
3; 109 1 ( 
: 110 1! ( 
s 711 1 ! EXTERNAL REFERENCES: ( 
3 \'§ 17 ( 
: 11 1 ( 
3; 6116 1 EXTERNAL ROUTINE ( 
: 115 1 SMGS$SIM_TERM ( 
F 116 1 SMG$S$SCROLL AREA, ( 
; i; ! SMGSRING_BECL; 
; 119 1 EXTERNAL LITERAL ( 
> 120 1 SMG$_FATERRLIB, ( 
3 } 1 } SMGS_STRTERESC; 
; i § ' } Some constants needed by reference. 
; 5 ALLONES : BYTE INITIAL (+1); 
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1! The ret leuing macro is used to move a congret character into the 
! text buffer in such a way that output will Later convert to the 
! appropriate device dependent graphic character. 


SINSERT_CTRL_CHAR (CHAR) = 
BEGIN 
LOCA 


ViFWN—O0O~ 


NDE e 
EMAINING_COLS; 


x 
I 

REMAINING COLS = .DCB DCB W NO COLS] = .0CB [DCB CURSOR ROW); 

I = $SSMGSLINEAR (.0CB COCB_Q@_CURSOR_ROW), .DCB CDCB_w_CURSOR_COL)); 

IF 

T 

E 


fen GTR .REMAINING_COLS 
ities = .BYTES_REMAINING 
BEGIN ! move the low nibble into the high nibble 


L 
I 
R 
I 
x 


EMA 
NDE 
1 


Sal ee te 


NOUS WIN —OOW 


4>) * 4; 

TEXT BUF C.INDEX]); 
R_GRAPHIC OR .ATTR CODE; 
ATTR_BUF C.INDEXJ); 


DCB COCB_W_ CURSOR COL] = .0CB CDCB_W CURSOR COL] + 1; 
IF .DCB TotB_w_CURSOR_ COL) EQL .DCB COCB_W_NO_COLS) 


DCB COCB_W_CURSOR_COL] = .0CB CDOCB_W_NO_COLS); 


GOOCOOCOSCOOCSOOCOOOCOOOoOoOooO 
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The table below (CHAR_TABLE) is used with a SCANC instruction to 
detect characters that have an impact on how text needs to be 
positioned in a text buffer that models what is on a portion of the 
screen. Each character position is occupied 7 a code indicating 
the kind of action that this character has on text placement. 
Characters are grouped into 10 categories based on their impact on 
the terminal and hence on their impact on what should be placed in 
the buffer at what position. 


These categories (codes) are: 
Action Code Action 


0 Normal processing. Character occupies next 
available slot in buffer. Cursor column is 
advanced by 1 after placement. 


1 Character can be discarded. Cursor is not 
advanced. 
2 Character can be discarded. Cursor is not 


modified, but a note must be made that the 
bell needs to be sounded. 


3 Character can be discarded, but cursor must be 
backed ¥ one column. Be careful about cursor 
already being in column 1. 


4 Character can be discarded, but cursor must be 
advanced to next TAB atep and intervening 
character positions in the buffer are 
undisturbed. 


TAB stops are assumed to be set in the following 
columns with column puapering starting at 1: 
9, 17, 25, 33, 41, 49, 57, 65, 73 ( width=80) 


9, 17, 25, 33. 41, 49, 57, 65, 73, 81, 89, 97, 
165, TEE 121, 129 ( width=132) 

5 Character can be discarded. Cursor must be 
advanced by one Line. 


6 Character can be discarded. Cursor must be 
advanced by one Line. (VT treated the same 
as #5, FF. 

7 Character can be discarded. Effect is 


to clear the buffer and reset the cursor to 
Line 1 column 1. 


8 Character can be discarded. Effect is to set 
cursor to column 1 of current Line. 


9 Character can be discarded. For this version, 
ESC terminates the string. Eventually, subsequent 
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characters need to be inspected to see if they 
constitute a recognized escape sequence whose 


effect must be simulated=-- E.g., cursor setting, 
rendition setting. 


Some problems with this are: 

1. What to do about sequences that we don't 
recognize ? 

2. What to do about sequences that we 
recognize as ones that can cause 
confusion later is allowed to be 
sent to terminal -- E.g. select graphics 
rendition, etc ? 


Character can be discarded. Character is 
treated as a no-op. It is broken out separately 
wn Be we ever need to do something special 

wi ‘ 


ASCII Character Action Code 


NUL to ACK 1 


to SI 
DLE to SUB 
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FS to US 
SP to 
DEL 
control chars 
reserved 
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; 93 $6 1 ZSBTTL ‘SMGSSPUT_TEXT TO_BUFFER - Put text to buffer’ 

: 294 67 1 GLOBAL ROUTINE SAGSSPOT_TEXT_TO_BUFFER ( 

3 6493 1 DCB : REF BLOCK (,BYTEJ, 

; 38 : 1 ATTR_CODE : BYTE, 

; 29 0 1 TEXT-LEN 

; 298 71 1 TEXTADDR, 

; 299 ye 1 CHAR SET, 

; 300 + OVERFLOW 

s 30) 74 «1 )= 

3 o 75 1 S44 

; 8; 0 8 } : FUNCTIONAL DESCRIPTION: 

: 305 § 76 1! This procedure places a text string into a buffer given the 
; 306 0379 1! current row and column in the buffer where output is to go. 
3 3or Bane 1! The input Foxe string is scanned for special characters that 
; 308 0381 1! eeghress simply moving the text into the buffer. For example, 
; 309 oes 1! ABs reposition the maintained cursor position and the text 
; 310 03835 1! must be deposited at the appropriate tab boundaries as a 

g Sst) 0384 1! function of current position in the Line. Escape sequences 
3 \¢ 0385 1! are not handled; an escape character is treated as a terminator, 
eH 0386 1! and a qualified success status will be returned to indicate 
3 ‘3 tt 44 : } that truncation occurred. 

; 316 0389 1! Positions in BUFFER that are modified have the corresponding 
g Sie 0390 1! positions in ATTR_BUFFER and CHAR_BUFFER set. 

3 638 0391 1! 

; #319 Ba6 1! 

3 $50 0393 1! 

: 1 0394 1 ! CALLING SEQUENCE: 

; $§ See2 1! 

3; lke 0396 1! ret_status.wlc.v = SMGSSPUT_TEXT_TO_BUFFER ( 

> 324 0397 1! CB.mab.r, 

; 325 0398 1 | ATTR_CODE.rb.v, 

: 326 0399 1! TEXT_LEN.rl.v, 

3 Ser 0400 1! TEXT_ADDR.rl.v, 

; 328 0401 1! - SET.rl.v 

: 3 be8s : : OVERFLOW. wil.rJ) 

; H tbe : FORMAL PARAMETERS: 

3 S 06 1! DCB.mab.r Address of virtual display control block. 

: $e 407 1! Various fields from within in this block are 
; 5 rts : are interrogated and/or updated. 

: 39 be) 2 ATTR_CODE.rb.v Video rendition attribute code. 

; 338 0411 1! Bit 0 old 

3 339 0412 1! Bit 1 Reverse video 

: 340 415 1! Bit § Blinking 

: rt i ! Bit Underscored 

3 48 ' : TEXT_LEN.rl.v Length of text string 

3; 345 : 1 : TEXT_ADDR.rl.v Address of text string 

3 43 7 CHAR_SET.rl.v Character set to use. 

: 348 1! SMG$C_UNITED_KINGDOM 

: 349 1 SMG$C ASCII 
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H 0 4 i 1! SMGSC -}? C_GRAPHICS 

; 1 4 3 SMGSC_A _CHAR 

i 336 ago 1 | SRGSCZALT_GRAPHICS 

: 4 4 5 1 i OVERFLOW.wl.r Optional. Address of longword in which 
: 5 4 8 >} to return the number of characters that 
3 $ r : } did not fit on the Line. 

: 38 431 i IMPLICIT INPUTS: 

40k 8 le 

: 36 435 1 | IMPLICIT OUTPUTS: 

3 6 4 $ 1! 

EB iecee Be ep ce 

; 66 0439 COMPLETION STATUS: 

; re] Bee) } ; SS$_NORMAL Normal successful completion 

: 20 O44 | SIDE EFFECTS: 

: 37 0445 1! NONE 

a 0446 1 !-- 

$ 74 044 1 

i a en pan 

mR BE on 

: 379 045g NULLPARAME TER; 

HB REE cy 

; 8 0455 TEXT_BUF : REF VECTOR Byte ! Addr of text buffer 

4 8 3628 ATTR_BUF : REF VECTOR C,BYTE ! Addr of attr buffer 

3; 384 045 CHAR BUF : REF sip *BYTE ! Addr of char set buffer 
; 385 0458 oer ! atus of subroutine calls 

: 86 0459 OVERFLOW : INITIAL (0), ' no. of overflow chars 
; 387 0460 Byres -REMAINING, ! No. of bytes in input string yet to be 
; 388 0461 j processes . 

3 34 b28s IN_POINTER; urrent pointer into input string 

: 391 0464 LITERAL 

3 4 p60? K_OVERFLOW_ARG = 6; 

: 39% §e8$ TEXT_BUF = .DCB (DCB_A_ TEXT 1 BUF: 

; 95 0468 ATTR™ BUF = .DCB DCB- ~A_A 

; 96 0669 CHARBUF = .DCB CDCB7A~ CHAR “SET_BUFI; 

: 398 471 BYTES _REMAINING = TEXT. WLEN; 

3 in tt INL POINTER = -TEXT_A 

: 401 47 WHILE BYTES REMAINING NEQ 0 

: 40 476 BEGIN ! Overall Loop 

: 604 7 LOCAL 

: 405 8 CHARS_TO_MOVE, ! No. of characters to move on this 
; 6 47 ! jteration 
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; 407 480 PLACE_TO_MOVE ! Place to move from = this iteration 
; 409 rs 1 NEW_BYTES REMAINING, pee ST vase remaining as returned 
: 41 4 ‘ ADDR_DIFF; : Addr of char in input stream whose 
>; 411 484 ! index into scanc table yields 
3 tig r 5 * ! non-zero code. 
; 416 G 3 ! See if any of the remaining input characters require special 
> «415 488 ' treatment. 
; $18 0489 Hoe 
: «41 490 SCANC ( BYTES_REMAINING, ! No. of bytes remaining 
; $18 491 IN POINTER, ! Current pointer to source 
; 41 3 HAR_TABLE, ' Address of SCANC table 
: 420 049 ALLORES; ' Mask for ANDin 
: 421 0494 NEW_BYTES_REMAINING, ! New remaining no. of bytes 
; 4 ¢ 984 } snc luding the byte which 
3 6 496 ' caused the instruction to 
; 424 0497 ' halt. Is zero ony if all 
; 425 0498 ! bytes did not satify search. 
: 4 $ 0499 ADDR_DIFF); ! Addr of char in input stream 
; 4 0500 ! whose index into scanc table 
; : B20; ! yields non-zero code. 
; 430 $208 CHARS_TO_MOVE = .BYTES_REMAINING - .NEW_BYTES_REMAINING; 
>; 431 0504 PLACE_TO MOVE = .IN_POIN 3 
: $38 0505 IN_POINTER = .IN_POINTER + .CHARS_TO MOVE; 
3 oa 0506 BYTES_REMAINING = .NEW_BYTES_REMAINING; 
3 4 0507 
; 435 0508 + 
; 436 0509 ' Copy the appropriate number of characters into the text buffer 
3: 437 0510 ! and the appropriate number of copies of the attribute code 
: 438 0511 ! into the attribute buffer. 
; 439 pate te 
: 440 051 IF .CHARS_TO_MOVE NEQ 0 
> 441 0514 THEN 
; 44 0515 4 BEGIN 
3 «44 3218 4 LOCAL 
> 444 0517 4 INDEX, ! O-based index into BUFFER and ATTR_BUFFER. 
3 445 O18 4 REMAINING_COLS; 
3 rot B2 2 INDEX = SSMGSLINEAR ( .DCB COCB_W_CURSOR_ROW], .DCB CDCB_W_CURSOR_COLJ); 
3; 449 05 ¢ 4 REMAINING_COLS = .DCB CDCB_W_NO_COLS] - .DCB CDCB_W_CURSOR_COLJ + 1; 
3 $20 5 4 IF .CHARS_TO_MOVE GTR .REMAIRING_COLS 
3; 6451 524 4 N ! chars will overflow Line 
; «445 525 BEGIN 
3; 45 5 $ WORK_OVERFLOW = .BYTES_ REMAINING + 
: 454 5 -CHARS _TO_MOVE - .REMAINING_COLS); 
; 455 528 CHARS_TO_MOVE = .REMAINING_COLS; 
: $26 529 4 END; 
; 45 5 ? 4 
; 458 5 4 '¢ 
3; 459 5 § & ' Move text into buffer. 
: 460 5 4 oe 
: 461 534 4 CHSMOVE (.CHARS_TO_MOVE, ! No. of chars 
; $66 be 5 4 -PLACE TO MOVE ' From 
: 46 536 4 TEXT_BOF C .INGEX J ); i To 
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1 4 XT_TO_BUFFER = Put text to buffer 14-Sep-1984 :10:00 SMGRTL.SRCISMGPUTTEX.852;1 (5) 


Aue 
ve 
cx 
eared 
i 
a 
mo 


~~ 


+ 

' Rewrite attribute bytes. Normally the attributes are 

' passed to us, but for the ‘autobended’ case where escape 

' sequences are used, we should look at the default attributes 
which may have been altered by SMGSSSIM_TERM. 


BEGIN 
AL 
WORK_ATTR; 
WORK_ATTR = .ATTR_CODE; 
6cB CocB_v_ALCow_€$cJ 


SMG 
3 3 4 $ 
: 4 ; 
: 4 ; 
3 i 4 : 
: to ¢ 
: 348 4 ; 
; 44 : 
: ts : 
; 475 $47 IF 
: 47 246 THEN ; 
: 47 550 WORK_ATTR = .DCB COCB_B_DEF_VIDEO_ATTRI; ; 
; 478 B22) CHSFILL T.WORK_ATTR, '“Char. to replicate 3 
; 479 226 .CHARS_TO_MOVE ' No. of times 3 
> 480 058 ATTR_BOF C .INOEX J ); i Destination ; 
Be Bae 2 7 
: 48 0996 4 14 : 
; tke ert 4 ? } Write the character set bytes, if necessary. : 
: 486 0559 4 iF .CHAR_BUF EQL 0 AND : 
3; 487 0560 4 -CHAR_SET NEQ SMGS$C_ASCII : 
; 488 0561 4 N 3 
; 489 R206 4 0; ! first char set - alloc buffer 3 
>; 490 0565 4 ‘ 
; 491 0964 4 IF .CHAR_BUF NEQ 0 : 
: 49 0566 4 CHSFILL (.CHAR_SET, : 
: 4946 0567 4 .CHARS TO MOVE ; 
: $99 0968 4 CHAR_BOF C.INDEX]); ; 
: 497 9970 4 1+ F 
3 res | 820) ? } Adjust resulting cursor position. Check for overflow. : 
: 500 $338 4 DCB CDCB_W_CURSOR_COLJ = .DCB CDCB_W_CURSOR_COL] + ; 
; 201 0574 4 HARS_TO MOVE ; 
: 208 0975 4 1F DCB CDCB_W_CURSOR_COL} GTR [OCB COCB_w_NO_cOLS] ; 
: $04 0877 4 DCB CDCB_W_CURSOR_COL] = .0CB COCB_W_NO_COLS]; : 
: 0579 4 IF .WORK OVERFLOW NEQ 0 2 
; $8 ba84 4 EXITLOOP; : 
3 4 : ¢ END; : 
> 511 5 3 
; \§ ; 5 If -NEW_BYTES_REMAINING EQL 0 : 
; 13 : EXITLOOP; ! Break out of loop -- we're done 3 
: 51 5 1+ ; 
3 19 5 ! Dispatch on the non-zero code located to see what special : 
: + 44 action is needed. : 
; 520 398 CASE .CHAR_TABLE [.(.ADDR_DIFF) <0,8>] FROM 1 TO 10 OF : 
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tt i SMGSSPUT_TEXT 16 BUFFER - Put text to buffer 1 ~Sep-19 4 93:18:60 SMGRTLe SRE ISHGPUTTEX. 69251 ne 35 


3 1 94 SET 3 
: 358 i ay ; 
: 4 9 i Hex Character Codes ASCII Character ; 
3 5 4 ' Seeeeeeeooeeeo@oeeeoon i . ii se eeeeeeceeeeee0 b4 
3 8 5 ' 00 to 06 NUL to ACK ; 
3 600 ' 10 to 1A DLE to SUB ; 
; 3 re } 1C to IF FS to US : 
3 . 0608 | Character can be discarded. Cursor is not advanced. " 
; ¢ $e 5 i Special case if the user graphic bit is set. That indicates 

3 6 ! a device-independent codé which should be placed in the buffer 

3 2 060 ! for later interpretation by oytput. Notice that we are guaranteed 

; 5 0608 ! that TEXT_ADDR contains only 1 character since only we call this 

: ° se routine. 

: 38 9611 IF (.ATTR_CODE AND ATTR_M_USER_GRAPHIC) NEQ 0 

: 540 $618 SINSERT_CTRL_CHAR ( .TEXT_ADDR); 

; 541 0614 

3 2¢6 0615 (2): 

3 ee 8918 14 

3; 544 061 ' Hex Character Codes ASCII Character 

: 545 0618 | semmcsuseausnesnss qj =eaeneuesessenus 

3 228 0619 ' 07 BEL 

: 54 pose ! 

; 548 0621 !' Character can be discarded. Cursor is not modified, and we 

3; 549 06 ; ' call a routine to ring the bell now. (Note that if we had 

3 229 06 ' stored the bell in the attribute buffer, the bell would've 

3 2) be : been rung every time the screen was repainted.) 

: 338 06 6 SMGSRING_BELL (.DCB CDCB_L_DID}); 

; 236 0628 (3): 

; 556 0629 '+ 

3; 557 0630 ' Hex Character Codes ASCII Character 

: 58 0631 | ~qusteseementimens: §o iseesedeausneses 

: 3 (Re tas = 

: 561 S32 i Character can be discarded, but cursor must be backed up 

3 $6 0635 ! one column. Be careful about cursor already being in 

3 o7 06 ' column 1. 

: 565 66 8 4 BEGIN 

: 6¢ Deco 2 I CDCB_W_CURSOR_COL] NEQ 1 

: $8 1 ? DCB CDCB_W_CURSOR_COL] = .DCB COCB_W_CURSOR_COL] -1; 

; % rk END; 

; (571 4 

5 7 645 (4): 

: 7 § '¢ 

3 74 ' Hex Character Codes ASCII Character 

4 75 ret ' See eeeeeeeeee2 2222282 @£3£3 i }{;ji téé#é@&eeeeeeseenecs@sec«s 

3 7 se: ! 09 HT 

: 7 50 ! 
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Put text to display buffer 18- ep-1984 01:12:44 AX-11 Bliss-32 Vv4.0-7 
SHGSSPUT_TEXT. 10_BUFFER - Put text to buffer 1 ~300n 138% 9h: :00 SMGRTL.SRCJSMGPUTTEX. 
! Character can be discarded, but cursor must be advanced to 
i ext TAB stop and intervening character positions in the 
? buffer must be left undisturbed. 
i TAB stops are assumed to be set_in the following columns: 
6 ‘ i 9, 17, 05, 38, 41, 49, 97, 65, 73 ( Mfathseoy 9 
6 i 9, 17, 25, 33, 41,_49, 57, 65, 73, 81, 89, 97, 105, 113, 
639 121, 128 ( width={32) 
0661 4 BEGIN 
Oeés 4 i Be careful about tabbing off the end of the Line or beyond 
bere 2 the end of the virtual display Line. 
066 4 if NOT .DCB CDCB_V_DISPLAY_CONTROLS) 
0668 2 BEGIN 
0669 DCB COCB_W_CURSOR_COL] = 
0670 5 (T.0C pore W_CURSOR_COLJ-1) /8+1) *8+1; 
B07) 5 IF .DCB COCB_W_CURSOR_COL] GTR .DCB [CDCB_W_NO_COLS) 
9h DCB CDOCB_W_CURSOR_COL] = .DCB CDCB_W_NO_COLS); 
0675 4 ELSE 
gore 4 am SINSERT_CTRL_CHAR (TAB); 
0678 P 
0679 (5,6): 
0680 + 
pons Hex Character Codes ASCII Character 
eh x . 
O65 i , 
06 ' Character can be discarded. Cursor must be advanced by 
set one Line. Don't advance beyond Last Line of display. 
0689 4 BEGIN 
0691 4 i If cursor not at bottom, advance DCB CDCB_W_CURSOR_ROW] 
$698 ? by one. 
0694 4 if NOT .DCB CDCB_V_DISPLAY_CONTROLS] 
95 4 THEN 
one BEGIN 
4 (a ee COCB_W_CURSOR_ROW] + 1 LEQ .DCB CDCB_W_BOTTOM_OF _SCRREG) 
699 nen” COCB_W_CURSOR_ROW] = .DCB CDOCB_W_CURSOR_ROW]) + 1 
701 SMGSSSCROLL_AREA (.0CB 
7 é .DCB COCB_W_TOP_OF_SCRREGJ, 
7 .0CB COCB-W"COL-STARTJ, 
7 (.0CB COCB_Q_BOTTOM_OF SCRREG) - 
705 .OCB_COCB-W"TOP_OF-SCRREG] + 1), 
7 .0CB COCB_@_NO_COLST, 
7 SMGSM_UP, 


882;1 


re 3 
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SSPUT_TEXT_T Put text to display buffer 16-Sep-1984 01:12:44 AX=-11 Bliss-32 V4.0-74 Page 14 $ 
sngts SMGSSPUT TEXT. 1D-BUFFER - Put text to buffer 12-808-1382 93:18:56 SMGRTL.SRC ShePUtiCN 6S2:1 . 33 1 
; 635 7 1); 3 
; 6 : 103 : END 3 
; 6 710 4 ELSE 3 
.) et : 
: Bc} HH CHAR =< {.ADDR_DIFF)<0,8> 
; 648 715 SINSERT_CTRL_CRAR (.CHAR);: ; 
> 64 8518 4 END; ; 
3 644 71 END; $ 
: Be $719 (7) 
3 geo oF 0 le 3 
; 648 721 ! Hex Character Codes ASCII Character ; 
4 649 07 ¢ ' Seeeeeeeneoneeeee2e2225 @£ 3&5£#£ £@ #358 «© ee ee eeeeeeaneen 4 
; 650 07 ! 0c FF 3 
; 651 0724 ! 3 
; 026 0725 ! Character can be discarded. Effect is to clear the buffer $ 
; $3? 85 § :_and reset the cursor to Line i column 1. : 
; 655 0728 4 BEGIN 3 
; 656 0729 4 IF NOT .DCB CDCB_V_DISPLAY_CONTROLS) : 
3 657 0730 4 THEN ; 
; 658 0731 2 BEGIN 3 
: 02? ers IF .DCB CDOCB_W_CURSOR_ROW] + 1 LEQ .DCB CDCB_W_BOTTOM_OF _SCRREG) : 
; 661 SFR 2 DCB CDCB_W_CURSOR_ROW] = .DCB “DCB_W_CURSOR_ROW] + 1 ; 
3 $66 0735 5 ELS 3 
: 66 0736 5 SMGSS$SCROLL_AREA (.0CB : 
> 664 0737 5 DCB DCB_w_TOP_OF SCRREG), ; 
3; 665 ores 5 .0CB BW COL RT], 3 
; 666 0739 é (.DCB COCB_Q_BOTTOM_OF SCRREG) - F 
; 667 0740 .0CB COCB-W-TOP_OF SCRREG) + 1), 3 
; 668 0741 5 .0CB COCB_Q_NO_COLSJ, ~ ; 
3; 669 1544 5 SMGSM_UP, 3 
; 670 0743 5 1); 3 
3 671 0744 5 3 
3 ore 0745 4 ELSE 3 
; 67 0746 4 SINSER’_CTRL_CHAR (FF); : 
3 674 0747 END; 3 
3; 675 0748 3 
: O76 0749 (8): 3 
3 66F 0750 '¢ 3 
5 678 873) ! Hex Character Codes ASCII Character $ 
° 67 7 § 5 Sseeeeeeeeoeoeeeeoesrs— £78 ] 39 ®§ @ @ @ eeeeeeeeee2 e 
; 680 075 ! OD CR ; 
3: 681 0754 ! 3 
; «68 755 ' Character can be discarded. Effect is to set cursor to g 
; 68 736 ' column 1 of current Line. 3 
> 684 75 be 3 
: 685 £38 4 BEGIN 3 
3 ty] a4 2 IF NOT .DCB CDCB_V_DISPLAY_CONTROLS) : 
3 oss Ay 2 DCB COCB_W_CURSOR_COL] = 1 : 
3; 690 186 4 SINSERT_CTRL_CHAR (CR); HY 
3; 691 0764 3 ND; 3 
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sngts SMGSSPUT_TEXT_T “BUFFER - Put text to buffer 1 $071 3be 94:18:96 SMGRTL.SRCISMGPUTTEX.B 2;1 ° (33 ; 
; 69 765 : 
| re a , 
; 699 768 i Hex Character Codes ASCII Character : 
: $39 776 i 1B ESC ; 
; 698 77 ' E $0 3 
: $86 ae ‘ - 
: 701 774 i Character can be discarded. Subsequent characters need ; 
; 70 775 ! to be inspected to see if they constitute a recognized : 
; i? 76 ! escape sequence whose gt rect must be simulated-- E.g., 3 
; ree a4 ; cursor setting, rendition setting. : 
: 706 0779 i SMGSSSIM_TERM processes the escape sequence, then returns ; 
; of 1454 here to allow any remaining characters to be processed. : 
: 709 782 4 BEGIN ; 
; 10 ores 4 IF NOT .DCB CDCB_V_ALLOW_ESC) : 
i 78 0785 5 gg RETURN (SMGS_STRTERESC) ! error from true SMGS : 
: ay) 3444 2 eceis ! autobended - attempt to interpret : 
: 716 0789 ; LEN OF SEQUENCE, : 
: 718 0791 STATUS = SMGSSSIM_TERM (.DCB F 
> 719 079¢ § -BYTES_REMAINING, ; 
; 720 0793 5 -IN_POINTER, ! pass ptr to esc char 3 
; rel 0794 5 LEN-OF SEQUENCE) ; ; 
, £ ¢ 0795 2 IF NOT .STATUS THEN RETURN T.STATUS); ; 
Bo . : 
: 735 0798 i Update the number of bytes processed. Since there is ; 
3; 726 0799 ' an automatic update | 1 character) at the end of this F 
3 E34 pane ; loop, don't count the ESC now. : 
; 129 080¢ 5 BYTES_REMAINING = .BYTES_REMAINING - .LEN_OF SEQUENCE + 1; ; 
; 750 0803 5 IN POINTER = .IN_POINTER’ + .LEN_OF_SEQUENTE = 1; ; 
3; 731 0804 4 END; ' autobénded - attempt to interpret 3 
: Oe 0805 4 ; 
. £ Bane END; 3 
: os 30 (10): 
. § 308 ai 
$ g i 5i9 } Hex Character Codes ASCII Character : 
: 039 OB1¢ 7F DEL 3 
: 41 HE Character can be discarded. ; 
: ra 816 :  ! no special action 3 
i 45 $8 CINRANGE, OUTRANGE): ; 
: 747 30 i Should never et here -- there are no other codes in : 
3; 748 821 ! CHAR_TABLE. If we do, we've got a problem. : 
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TITLE SMGS$PUT_TEXT_TO_ 


IDENT \1-012\ 


PIC,2 


~PSECT _SMGSDATA,NOEXE, 
=1 
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00 ALLONES: .BYTE 
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.EXTRN SMGS$RING BELL ene. patenen 
SEXTRN SMG$_STRTERESC 


-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


$ 
1 


cx 


re 


OFFC 00000 .ENTRY SMG$ ssPur_ Text T 10 O,BUFFER, Save R2,R3,R4,R5,- ; 0367 3 
5E 20 ¢2 0000 SUBL2 Bas" §p : ; 
18 AE 04 0000 CLRL WORK_OVERFLOW : aug ; 
59 04 AC DO 0000 MOVL DCB “R + 0467 ; 
1) 10 a9 D0 0000 MOVL 16(R9), TEXT_BUF : ; 
SA 14 Ad D 1 MOVL g0(R9), ATTR~BUF + 0468 ; 
14 «OA 18 a9 p 1 MOVL 4(R9). CHAR™BUF + 0469 : 
5 0c AC D 00019 MOVO TEXT_LEN, BYTES_REMAINING + 0471 ; 
5 D3 001D 1$: TSTL § BYTES_REMAINING + 0474 ; 
ore $f does wots ; ; 
00000000' EF 00000000' EF 68 sf 3h §0054 2$: SCANC BYTES eon (IN_POINTER), CHAR_TABLE, -: 0490 ; 
10 AE 50 pO 00031 MOVL RO, 1 : ; 
0c AE 51 09 00035 MOVL. R1. 1 (Sp) : ; 
56 5 10 AE C3 60039 SUBL3 mags REMAINING, BYTES_REMAINING, - + 0503 ; 
52 58 D0 p00R6 MOVL N_POINTER PLACE. 10 MOVE 3 0504 3 
58 56 CO 00041 ADDL2 CHARS $ TO MOVE, OINTER : 0505 : 
57 10 AE D b0044 MOVL NEW BYTES RE BAINIRG. BYTES_REMAINING + 0506 ; 
56 DS 00048 TSTL  CHARS_TO_MOVE : 0513 : 
7¢ 13 OO04A BEQL $ : ; 
50 28 «Ad «3C 0046 MOVZWL 40(R9), RO + 0520 ; 
50 b? 005 DECL F ; 
51 06 Ad 3C 00052 MOV ZWL 6(R9) R1 F ; 
50 51 C4 00056 MULL2 : ; 
08 AE 2a AD Ht: 00059 OVAB G3iR9), 8 8(SP) : 3 
51 08 BE C 9005 MOVZWL R1 ; ; 
04 AE FF A140 9E 0006 MOVAB oF tat ERO. INDEX : ; 
50 Ad 3C¢ 0006 MOVZWL 6(R9) RO : 0522 ; 
50 51 C2 0006C SUBL2 R1, RO F : 
50 (D6 O06F INCL REMAINING COLS F : 
50 i a0rt CML CHARS _ T0 SAOVE. REMAINING_COLS + 0523 ; 
51 56 6 ¢c3 00076 SUBL3 REMAINING _COLS, CHARS TO MOVE : 0527 : 
18 AE 51 rH C1 0007A tt BYTES REMAINING, Ri GorR OVERFLOW : : 
56 0 00 007F MOVL MAIRING. COL _TO_MOVE > 0528 ; 
04 BE4B 62 56 28 00082 3$: MOVC3 CHARS. 10 TO MOVE." (PLACE? “TO“MOVE), @INDEX- : 0536 : 
50 08 aC 9A 00 MOVZBL ATTR £ODE WORK _ATTR ; 0547 F 
04 34 «Ad 0 gl 0 C 5e(R } : 0548 : 
50 2 AD OA 1 MOVZBL ‘ tr Sabie : 9990 : 
bE 00 2C 00095 4$: movcS. #0, (S $6) WORK Aire. CHARS_TO_MOVE, @INDEX- ; 055 : 
04 BEGA 9A CATTR BUF ; 

4 AE D TSTL HAR_BUF : 0559 

OE 1 A BEQL : 0564 

04 AE 14 ar g A ADDL3 CHAR_BUF, INDEX, (SP) : 0568 

6E ee 00 C te movcS #0, TSP), CHAR Xeet® CHARS_TO_MOVE, @0(SP) 
08 8B 6 AO 00080 5$: ADDW2  CHARS_TO_MOVE, a@8(SP) > 0574 
06 3 08 BE Bi 8? CMPW = @B( SPT, 8(R9) : gare 
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15 - Liss-32 V4.0-7 (5) 
display buffer 16- so 138% Oy: 18:66 :00 SMGRTL SR RC SMGPUTIEX.B 231 
Seer reer aT eats SUT Tex! TDLBUFFER © Put text to ae 17 MOVZWL eg RO : 
50 0 176 ROVEWL 6<R9) ; : 
51 06 a? 2f Vee MULL2 Rito ; 3 
, é 3c 17F NOVAS” <1(RI)EROJ, INDEX : 
: é FF AISO 9 0018¢ TSTL  REMAINING_COLS 
Be a: Be Utes seme ieee, eee : 3 
> 18$ : : 
18 AE BRB LE . : 
0 90 g3 My 154 178: Hove ete’ nines MIRE ext pur ; : 
018 50 30 $133 MOVZBL ATTR ODE, W6 WORK KATIE ; 
01 6g 5: a 9 OOIAS move WORK-A "ATTRe CINDER LATTR_BUF 
50 614A aes QiAg 188: INCH (RS ; 
9 3 Bl OOIA BNE OSS ; : 
et ie SA 12 OOIAC W (ROD, (RB) : 0593 : 
= eS Foe oe. oe ee : 069% : 
- mo i sya se: Hy, #2. 47(R9), 24$ : O71 
= eg 3 4 90189 MOVZWL 6(R95 REMAINING COLS 
30 38 A i aoice SUL ane : : 
2 01¢7 MOVZWL 40¢R 
50 eo 8 Bs DECL RO : 
23 RT gece MOVZWL 6(R9) : 
1 06 AF 36 0010p MULL?” RIL RO 
R : 
Poo BABE | Bie Hl : : 
34 $5 ge pp ibe MOVAB -1(R{)CROJ, INDEX 
21 FF ais % 83108 TSTL  REMAINING_COLS : 
7 48 SOTES PXTZV AO. #4, CHAR, R3 ; 
P 04 be 5B OO1ES 228: Ace, ae RS, _ ae : ; 
53 33 23 83 90 OOlED ROVE a, SHIFT. on 
11 001FO RO), 288 : 0 : 
co Ge G0 OO1ES 25s: BRS Hace RB) 7 : 
” - 50 D6 O01FB CNP ZV M0, #16, 74(R9), RO ps 
0 6 : : 
50 4A Ad 10 05 19 00 : Pee £9(R9) tote : 
28 8 FF 0050 gg: BRB 2 ; 
| pb ooso¢ pus. : 0741 
1} 0 docdc MOVZUL 6(R9), -(SP) : 0740 : 
7E 96D te posts MOVIUL P4CROS, RO 
P RR EB  Bit Ra ag! |i 
5 ee i ME iB) 
7 ae ee ed MOVIUL 4ER9D, =(SP) : OF : 
7e ; 3 ¢ 6 4 MOVZWL 72(R95, -(SP) : 
& 8S bp $558 CALLS. #7, SMGSSSCROLL_AREA : 0729 
000000006 00 33 if 00st 27s: BRB 508 


SMGS$PUT_TEXT_T Put te 
1-012 SMGSS 


50 


v 
cx 


at splay buffer 
XT_TO_BUFFER = Put text to buffer 
3 AY 3C 
HoH 
50 § 
28 = =6Ad 4 
a 8 
1 06 A ¢ 
0 51 C4 
2 2A =6AD OSE 
1 6 C 
51 FF A114 5 8 
, 1 8 
50 ae. 
B 11 00 
52 2A «OAD 43 0 
she hia 81 60 00 
% 11 8 
53 06 Ad HS 0 
50 28 Ad 3C 00 
53 50 ge 00 
ote, po BE: 
51 06 AI Re 00 
50 51 ge 00 
51 62 3C¢ 00 
51 FF arg M4 00 
4 8 
18 AE 96 DO 00 
14 11 00 
50 30 of 00 
6148 50 90 00 
50 08 AC 9A 00 
01 06 01 4 00 
614A 50 90 00 
62 B86 00 
06 Ag g s} 
62 06 Ag 80 0 
31 11 00 
08 34 «=A IF EO 00 
50 00000000G 8F BY 0 
1C¢ ag oF § 
7E 5 D 00 
59 DD 00 
000000006 00 98 F 
§ 0 € 
50 1C A 3 
57 01 A . 8 
50 58 1c OA § 
58 FF OA 0 
; D 
FO2B Rf 
06 Ag 2A =6AD iBT 


a 


= 
MOM OAOW™S OSNMO OLOMDM ON ™WoOosrom 


PIPIPOPIPINIPYP IPN IMPYNINININIPIPIPIPNIPIDININIPINIPINIPIPIPININPIPYPIPOPIPYPINYPINUPIPUPNMUARIMNIAIMINIPNINNPINIPY 


——_—_—_—_— _ ______.._ 


2 1? 
-seo- 
12-888- 


34$: 


35$: 
36$: 


37$: 


Sromoown 


38$: 


39$: 


40$: 


MMODNYIM OO "9S SNOT S 


1986 93:16: 
MOVZWL 
HOVZUL 


eee Bliss-32 veiee ot 
SMGRTL.SRCJSMGPUTTEX.852;1 


REMAINING, COLS 
MAINING_COLS 
RC 


1 
ROJ, INDEX 
NG_COLS 


HIF T_NIBBLE 


R2 
9), 338 


R 
) 
REMAINING_COLS 
MAINING_COLS 

RO 


o- 
z 


YTES_REMAINING, WORK_OVERFLOW 


#48, SHIFT_NIBBLE 

SHIFT _NIBBCE, (INDEX) CTEXT_BUFIJ 
ATTR_CODE, WORK _ATTR 

s #i, WORR ATTR 
WORK_ATTR, CINDER) CATTR_BUF J 
(R2), 6(R9) 

6(R9), (R2) 

40$ 


#5, 52(R9), 39% 
#SMGS_STRTERESC, RO 


LEN_OF SEQUENCE 
BYTES REMAINING, -(SP) 


#4, SMGS$SIM_TERM 
STATUS, 44$ 
LEN OF “SEQUENCE, BYTES_REMAINING, RO 


“BYTES NIN 
LEN Of _SEQUERCE IN_POINTER, RO 
POINTER 


7 IN, 

IN_POINT 
YTES_REMAINING 

42(R9), 6(R9) 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Be Be Se Be Se 


mV -—M—— MW 


oOo 

coco 
WNW 
NEW W 


Ad 


15 | 
SMGSSPUT_TEXT_T Put text to dis sp8 buffer 1 mat DS 9 9}: 1 AX-11 Bliss-32 V4.0-7 Page 21 
1-012 SMGSS$PUT_TEXT BUFFER = Put text to buffer 14-Sep-1984 13:1 00 SMGRTL.SRCJSMGPUTTEX. 8 2:1 (5) 
1 2F7 BNEQ : 
34 OAD 8% as 6 F9 B1SB2 ‘5° 52(R9) 3; 0839 
06 6¢ 1 FD 42$ CMPB. sé AAP), #6 + 0841 
A iF BLSSU 3 
18 A p TSTL 4 (AP) : 
0 BEQL : 
18 BC 18 AE D MOVL WORK_OVERFLOW, @OVERFLOW 3 0843 
01 B oC 43$: MOVL #1, RO : 0845 
4 F 44$: RET 3 0846 


; Routine Size: 784 bytes, Routine Base: _SMGSCODE + 0000 


; 774 0847 1 !<BLF/PAGE> 


i - - - ' 
ABU PEL our coxe co outter  TEREBCIGE SUSE:GS — YMGH Obes vo cael * 


PUT_ 10. SMGRTL.SRC SMGPUTTEX. yf 2;1 
: a O89 ! END ! End of module SMGS$SPUT_TEXT_TO_BUFFER 
; «4778 50 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: etebee G2 NGVEEcnotRt: AB cMOBKEMOSMA: Et: RRL: EON: PHECALEENG} 


Library Statistics 


A ban ee ae Oo ae Symbols -------- Pages Processing 
3 File Total Loatied Percent Mapped Time 
> _$255$DUA28: SYSLIBISTARLET 32:1 9776 0 581 00:01.0 
: Biittines Hest aut TB +t eg?) 36 6 0 § 00:00.1 
: —$255$DUA28 SmcRit: “OB: SMGLIB.L32;1 469 1 4 3 00:00.4 
: COMMAND QUALIFIERS 
3 PL. SSSPCHECR EP FELD, NEV IM, PT IRIZED AUTRACE/ FOL 150s SNOPUT FERED IER ISs SGPT ER MSRC$: SMGPUTTEX/UPDATE=(ENHS$: SMGPUTTEX 

Size: 784 6: $3 + 260 data bytes 

Run Time: 

Elapsed Time: 5. 3 

Lines/CPU Min: 


0 

Lexemes/CPU-Min: iBi78 
ry Us Used: 354 pages 
Compilation Complete 
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